home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / r / rexx_plus_compiler / rexxpluscompiler2.dms / in.adf / RexxPlPlot / Examples / examples.zoo / Example07.plot < prev    next >
Encoding:
Text File  |  1990-03-17  |  1.2 KB  |  67 lines
  1. /* Example07.plot - Displays the plotter symbols for PLSYM */
  2. /* Modified for RexxPlPlot by Glenn M. Lewis - 9/12/89 */
  3.  
  4. address 'PlPlot'
  5. say 'Please be patient...'
  6.  
  7. base.1  = 0
  8. base.2  = 200
  9. base.3  = 500
  10. base.4  = 600
  11. base.5  = 700
  12. base.6  = 800
  13. base.7  = 900
  14. base.8  = 2000
  15. base.9  = 2100
  16. base.10 = 2200
  17. base.11 = 2300
  18. base.12 = 2400
  19. base.13 = 2500
  20. base.14 = 2600
  21. base.15 = 2700
  22. base.16 = 2800
  23. base.17 = 2900
  24.  
  25. /* Full sized page for display */
  26.  
  27.       'plstar(1,1);'
  28.       do l=1 to 17
  29.         'pladv(0);'
  30.  
  31. /* Set up viewport and window */
  32.  
  33.         'plvpor(0.1,1.0,0.1,0.9);'
  34.         'plwind(0.0,1.0,0.0,1.0);'
  35.  
  36. /* Draw the grid using plbox */
  37.  
  38.         'plbox("bcgt",0.1,0,"bcgt",0.1,0);'
  39.  
  40. /* Write the digits below the frame */
  41.  
  42.         do i=0 to 9; 'plmtex("b",1.5,' 0.1*i+0.05 ',0.5,i);'; end i
  43.     
  44.         k=0
  45.         do i=0 to 9
  46.  
  47. /* Write the digits to the left of the frame */
  48.  
  49.           'plmtex("lv",1.0,' 0.95-0.1*i ',1.0,' base.l+10*i ');'
  50.           do j=0 to 9
  51.             x = 0.1*j+0.05;
  52.             y = 0.95-0.1*i;
  53.  
  54. /* Display the symbols */
  55.  
  56.             'plsym(1,x,y,' base.l+k ');'
  57.             k=k+1
  58.           end j
  59.         end i
  60.  
  61.         'plmtex("t",1.5,0.5,0.5,"PLPLOT Example 7 - PLSYM symbols");'
  62.       end l
  63.       'plend();'
  64.  
  65. exit 0
  66.  
  67.